home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cli / ksc_ResetCop.lha / ResetCop.asm next >
Encoding:
Assembly Source File  |  1998-04-08  |  1.0 KB  |  53 lines
  1. ; ResetCop 1.1 : resets (restores?) copper to original state
  2. ; by Kyzer/CSG
  3. ; $VER: ResetCop.asm 1.1 (08.04.98)
  4. ;
  5.     incdir    include:
  6.     include    lvo/exec_lib.i
  7.     include    lvo/graphics_lib.i
  8.     include    lvo/intuition_lib.i
  9.     include    graphics/gfxbase.i
  10.     include    hardware/custom.i
  11.     include    hardware/dmabits.i
  12. _custom=$dff000
  13.  
  14.     move.l    4.w,a6
  15.     lea    _custom,a5
  16.     lea    gfxname(pc),a1
  17.     moveq    #33,d0
  18.     jsr    _LVOOpenLibrary(a6)
  19.     tst.l    d0
  20.     beq.s    .nogfx
  21.     move.l    d0,a6
  22.     move.l    gb_ActiView(a6),a1
  23.     jsr    _LVOLoadView(a6)
  24.     jsr    _LVOWaitTOF(a6)
  25.     jsr    _LVOWaitTOF(a6)
  26.     move.l    gb_copinit(a6),cop1lc(a5)
  27.     move.l    gb_LOFlist(a6),cop2lc(a5)
  28.     move.w    #DMAF_SETCLR|DMAF_MASTER|DMAF_COPPER,dmacon(a6)
  29.     moveq    #0,d0
  30.     move.w    d0,fmode(a5)
  31.     move.w    d0,copjmp1(a5)
  32.     move.w    d0,copjmp2(a5)
  33.     move.l    a6,a1
  34.     move.l    4.w,a6
  35.     jsr    _LVOCloseLibrary(a6)
  36.  
  37.     lea    intname(pc),a1
  38.     moveq    #33,d0
  39.     jsr    _LVOOpenLibrary(a6)
  40.     tst.l    d0
  41.     beq.s    .noint
  42.     move.l    d0,a6
  43.     jsr    _LVORethinkDisplay(a6)
  44.     move.l    a6,a1
  45.     move.l    4.w,a6
  46.     jsr    _LVOCloseLibrary(a6)
  47. .noint
  48. .nogfx    moveq    #0,d0
  49.     rts
  50.  
  51. gfxname    dc.b    'graphics.library',0
  52. intname    dc.b    'intuition.library',0
  53.